home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / e / easy_patch / easypatchv1.23cra.lha / EasyPatch123a / Docs / GotoHomePage.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-10  |  804 b   |  56 lines
  1. /* GotoHomePage.rexx <browser> - © Alessandro Zummo */
  2.  
  3. page = 'http://www.logicom.it/personal/azummo/EasyPatch.html'
  4.  
  5. PARSE ARG browser
  6.  
  7. IF browser = 'IBrowse' THEN
  8. DO
  9.     IF ~SHOW('Ports','IBROWSE') THEN CALL ERROR
  10.  
  11.     ADDRESS 'IBROWSE'
  12.  
  13.     gotourl page
  14.  
  15.     CALL DONE
  16.  
  17. END
  18.  
  19. IF browser = 'Voyager' THEN
  20. DO
  21.     IF ~SHOW('Ports','VOYAGER') THEN CALL ERROR
  22.  
  23.     ADDRESS 'VOYAGER'
  24.  
  25.     openurl page
  26.  
  27.     CALL DONE
  28. END
  29.  
  30. IF browser = 'Clip' THEN
  31. DO
  32.     ADDRESS COMMAND 'ClipWrite "'page'"'
  33.  
  34.     EXIT
  35. END
  36.  
  37. ERROR:
  38.  
  39. Say browser' not loaded!'
  40.  
  41. ADDRESS COMMAND 'RequestChoice TITLE="GotoHomePage.rexx" BODY="'browser' not loaded!" "Ok" >NIL:'
  42.  
  43. EXIT
  44.  
  45.  
  46.  
  47. DONE:
  48.  
  49. phrase = '-s180 You are waiting to be connected to the EasyPatch home page.'
  50.  
  51. IF EXISTS('SYS:Utilities/Say') THEN 
  52. DO
  53.     ADDRESS COMMAND 'RUN <>NIL: SYS:Utilities/Say 'phrase
  54. END
  55.  
  56. EXIT